home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 441 / aessrc12 / aesrsrc2.s < prev    next >
Text File  |  1990-11-23  |  1KB  |  40 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .include  "aesfast.sh"
  9.           
  10. ;*************************************************************************
  11. ;*
  12. ;* Resource manager routines 2 of 2.
  13. ;*
  14. ;*************************************************************************
  15.           
  16. ;-------------------------------------------------------------------------
  17. ; rsrc_saddr
  18. ;-------------------------------------------------------------------------
  19.  
  20. _rsrc_saddr::
  21.           .cargs    #4,.type,.idx,.addr.l
  22.           AControl  113,2,1,1
  23.           lea       .type(sp),a1
  24.           lea       .addr(sp),a0
  25.           ACall     RET2USER
  26.           
  27. ;-------------------------------------------------------------------------
  28. ; rsrc_obfix
  29. ;-------------------------------------------------------------------------
  30.  
  31. _rsrc_obfix::
  32.           .cargs    #4,.ptree.l,.obj
  33.           AControl  114,1,1,1
  34.           lea       .obj(sp),a1
  35.           lea       .ptree(sp),a0
  36.           ACall     RET2USER
  37.           
  38. ;         end of code
  39.  
  40.